home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 June / macformat-038.iso / Demos / Interactive Wave / _DATAS / SHARED.Dxr / 00990_Gestino de l'initialisation.ls < prev    next >
Encoding:
Text File  |  1995-08-06  |  1.1 KB  |  46 lines
  1. on ForceInitVarLVI
  2.   global TypeMag, TypeBoutique
  3.   SetVarLVI2()
  4.   set TypeMag to 1
  5.   set TypeBoutique to 1
  6.   InitEntreAnim()
  7. end
  8.  
  9. on InitVarLVI
  10.   global DcVarOk
  11.   if DcVarOk = 0 then
  12.     SetVarLVI2()
  13.   end if
  14. end
  15.  
  16. on SetVarLVI2
  17.   global DcVarOk, TypeMag, TypeBoutique, DiskouCD, NameExt, TypeMachine, TypeSeparator, listFichSound, CastEfface, ComptBoucleEnter, CursMain
  18.   clearGlobals()
  19.   set DcVarOk to 1
  20.   set TypeMag to 0
  21.   set TypeBoutique to 0
  22.   AllMacroFrame()
  23.   set DiskouCD to 1
  24.   if DiskouCD = 0 then
  25.     set NameExt to ".DIR"
  26.   else
  27.     set NameExt to ".DXR"
  28.   end if
  29.   set TypeMachine to the machineType = 256
  30.   if TypeMachine then
  31.     set TypeSeparator to "\"
  32.   else
  33.     set TypeSeparator to ":"
  34.   end if
  35.   set listFichSound to [" ", " ", " ", " ", " ", " ", " ", " ", " ", " "]
  36.   set CastEfface to the number of cast "N_CastEfface"
  37.   set ComptBoucleEnter to 0
  38.   InitVarBarrette()
  39.   InitVarNavig()
  40.   SetMemoNavPuce("DEPART # NAVIG #")
  41.   AnnuleDcAnimDetour()
  42.   AnnuleMemoAnimDetour()
  43.   set CursMain to [the number of cast "CastMain", the number of cast "MaskCastMain"]
  44.   RstDemo()
  45. end
  46.